home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / MacInterface / OS_utilities.icl < prev    next >
Encoding:
Modula Implementation  |  1995-02-24  |  783 b   |  28 lines  |  [TEXT/3PRM]
  1. implementation module OS_utilities;
  2.  
  3. import mac_types;
  4.  
  5. Secs2Date :: !Int !Toolbox -> (!Int,!Int,!Int,!Int,!Toolbox);
  6. Secs2Date secs t = code (secs=R14D1,t=U)(year=W,month=W,day=W,dayOfWeek=I6W,z=Z){
  7.     instruction 0x2001            ||    move.l    d1,d0
  8.     instruction 0x204F            ||    move.l    sp,a0
  9.     instruction    0xA9C6
  10. };
  11.  
  12. Secs2Time :: !Int !Toolbox -> (!Int,!Int,!Int,!Toolbox);
  13. Secs2Time secs t = code (secs=R14D1,t=U)(hour=I6W,minute=W,second=W,z=I2Z){
  14.     instruction 0x2001            ||    move.l    d1,d0
  15.     instruction 0x204F            ||    move.l    sp,a0
  16.     instruction    0xA9C6
  17. };
  18.  
  19. SysBeep :: !Int !Toolbox -> Toolbox;
  20. SysBeep duration t = code (duration=W,t=U)(z=Z){
  21.     instruction 0xA9C8
  22. };
  23.  
  24. GetCursor :: !Int !Toolbox -> (!Handle,!Toolbox);
  25. GetCursor cursorID t = code (cursorID=R4W,t=U)(crsr_handle=L,z=Z){
  26.     instruction 0xA9B9
  27. };
  28.